home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / Pete Johnson / Log-O-Matic 1.72<source>.cpt / Globals.p < prev    next >
Encoding:
Text File  |  1991-01-23  |  1.3 KB  |  48 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. {    Created June 29, 1989, to organize global variables            }
  4.  
  5. interface
  6.  
  7.     const
  8.         VERSION = '1.8';
  9.         NULL = chr(0);
  10.         CTLA = chr(1);
  11.         TAB = chr(9);
  12.         ENDLINE = chr(13);
  13.         SPACE = chr(32);
  14.  
  15.     type
  16.         MyByte = byte;
  17.         OneString = STR255;
  18.         OneStringPtr = ^OneString;
  19.         OneStringHdl = ^OneStringPtr;
  20.  
  21.         Section = record
  22.                 Name: string;
  23.                 Limit: longint;
  24.                 Age: longint;
  25.                 Number: integer;
  26.                 Backup: boolean
  27.             end;
  28.         SectionPtr = ^Section;
  29.         SectionHandle = ^SectionPtr;
  30.  
  31.     var
  32.         doneFlag: boolean;
  33.         HiStringNo, CurrentResFile: integer;
  34.         MyWindow: WindowPtr;
  35.         ULPath: STR255;
  36.         NewULog, TheBAK, CLPath, DeleteLevelString, PromotionString, CheckLevStr, OneCallLimitString: STR255;
  37.         TabbyLimitString, TempString: STR255;
  38.         TEXTType, DateString, TimeString, TabbyStamp, VetCallsText, FlagNumText, BackupPath: str255;
  39.         ChangeLevel, LogDeletes, KillOldOneCalls, TLKLimit, SetTheFlag, MonthlyTLArc: boolean;
  40.         DeleteByLevel, SkipDeletes, Backup, ZeroMin, SortUL, ResetCl, ResetTL, UseStuffIt: boolean;
  41.         TabbyLimit, MonthlyCLArc, DeleteOldUsers: boolean;
  42.         AlterVeterans, StuffItAvail: boolean;
  43.         DeleteLevel, Newcomer, Approved, NewTime, CheckLevLong, OneCallLimit: longint;
  44.         TabbyLimitSize, Inactivity, NowSecs, VetCalls, FlagNum: longint;
  45.  
  46. implementation
  47.  
  48. end.        {    Globals unit    }